home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d18
/
twars.arc
/
DAT2TXT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-04-28
|
4KB
|
148 lines
program looksect(input,output);
type
user = record
fa : string[41];
fareal : string[41];
fb,fc,fd,fe,ff,fg : integer;
fh,fi,fj,fk,fl,fr,fp : integer;
fm,fo,fq,ft,fv : integer;
doorpts : real;
end;
str = string[41];
FUNCTION ADDBLANK(B:STR;L:INTEGER): STR;
VAR
I,J : INTEGER;
TEMP : STR;
BEGIN
TEMP := ' ';
ADDBLANK := B;
IF LENGTH(B) < L
THEN
BEGIN
I := L-LENGTH(B);
ADDBLANK := CONCAT(COPY(TEMP,1,I),B);
END;
END;
var
narly : text;
userf : file of user;
usernew : file of user;
usert : user;
userz : user;
tfa : string[41];
tfareal : string[41];
tfb,tfc,
tfd,tfe,tff,tfg,
tfh,tfi,tfj,tfk,
tfl,tfr,tfp,tfm,
tfo,tfq,tft,tfv : string[8];
tdoorpts : string[20];
loop :integer;
begin
assign(userf,'twdata.dat');
reset(userf);
assign(narly,'newdata.txt');
rewrite(narly);
loop := 0;
while loop < 1701 do
begin
read(userf,usert);
tfa := '';
tfareal := '';
tfb := ' ';
tfc := ' ';
tfd := ' '; tfe := ''; tff := ''; tfg :='';
tfh := ' '; tfi := ''; tfj := ''; tfk :='';
tfl := ' '; tfr := ''; tfp := ''; tfm :='';
tfo := ' '; tfq := ''; tft := ''; tfv :='';
tdoorpts := ' ';
tfa := addblank(usert.fa,41);
tfareal := addblank(usert.fareal,41);
write(narly,tfa);
write(narly,tfareal);
str(usert.fb,tfb);
str(usert.fc,tfc);
str(usert.fd,tfd);
str(usert.fe,tfe);
str(usert.ff,tff);
tfb := addblank(tfb,8);
tfc := addblank(tfc,8);
tfd := addblank(tfd,8);
tfe := addblank(tfe,8);
tff := addblank(tff,8);
write(narly,tfb);
write(narly,tfc);
write(narly,tfd);
write(narly,tfe);
write(narly,tff);
str(usert.fg,tfg);
str(usert.fh,tfh);
str(usert.fi,tfi);
str(usert.fj,tfj);
str(usert.fk,tfk);
str(usert.fl,tfl);
str(usert.fr,tfr);
tfg := addblank(tfg,8);
tfh := addblank(tfh,8);
tfi := addblank(tfi,8);
tfj := addblank(tfj,8);
tfk := addblank(tfk,8);
tfl := addblank(tfl,8);
tfr := addblank(tfr,8);
write(narly,tfg);
write(narly,tfh);
write(narly,tfi);
write(narly,tfj);
write(narly,tfk);
write(narly,tfl);
write(narly,tfr);
str(usert.fp,tfp);
str(usert.fm,tfm);
str(usert.fo,tfo);
str(usert.fq,tfq);
str(usert.ft,tft);
str(usert.fv,tfv);
tfp := addblank(tfp,8);
tfm := addblank(tfm,8);
tfo := addblank(tfo,8);
tfq := addblank(tfq,8);
tft := addblank(tft,8);
tfv := addblank(tfv,8);
write(narly,tfp);
write(narly,tfm);
write(narly,tfo);
write(narly,tfq);
write(narly,tft);
write(narly,tfv);
str(usert.doorpts,tdoorpts);
tdoorpts := addblank(tdoorpts,20);
write(narly,tdoorpts);
writeln(narly);
writeln('Loop # is ',loop);
loop := loop +1;
end;
close(userf);
close(narly);
end.